From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 30 Jun 2004 19:34:34 +0000 (+0000)
Subject: (match_limit, Fmatch_data, Fset_match_data): YAILOM.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21782
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a06338ff3e13714d8906d72f0560f9d469191707;p=emacs.git

(match_limit, Fmatch_data, Fset_match_data): YAILOM.
---

diff --git a/src/search.c b/src/search.c
index bd187181ecf..169baf05d55 100644
--- a/src/search.c
+++ b/src/search.c
@@ -1,5 +1,6 @@
 /* String search routines for GNU Emacs.
-   Copyright (C) 1985, 86,87,93,94,97,98, 1999 Free Software Foundation, Inc.
+   Copyright (C) 1985, 86,87,93,94,97,98, 1999, 2004
+             Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -2628,7 +2629,7 @@ match_limit (num, beginningp)
   CHECK_NUMBER (num);
   n = XINT (num);
   if (n < 0)
-    args_out_of_range (num, 0);
+    args_out_of_range (num, make_number (0));
   if (search_regs.num_regs <= 0)
     error ("No match data, because no search succeeded");
   if (n >= search_regs.num_regs
@@ -2728,10 +2729,9 @@ Return value is undefined if the last search failed.  */)
 	data[2 * i] = data [2 * i + 1] = Qnil;
     }
 
-  if (BUFFERP(last_thing_searched)
-      && ! NILP (integers))
+  if (BUFFERP (last_thing_searched) && !NILP (integers))
     {
-      XSETBUFFER(data[len], last_thing_searched);
+      data[len] = last_thing_searched;
       len++;
     }
 
@@ -2811,9 +2811,9 @@ LIST should have been created by calling `match-data' previously.  */)
     for (i = 0;; i++)
       {
 	marker = Fcar (list);
-	if (BUFFERP(marker))
+	if (BUFFERP (marker))
 	  {
-	    XSETBUFFER(last_thing_searched, marker);
+	    last_thing_searched = marker;
 	    break;
 	  }
 	if (i >= length)